home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / msdos / mxmenu.zip / QUICK.MNU < prev    next >
Text File  |  1993-01-26  |  3KB  |  141 lines
  1. Comment
  2. ==========================================================
  3.  
  4. Copyright 1990-93 by Marc Perkel * All right reserved.
  5.  
  6. This menu is a sample of a Novell ready menu. You can easilly modify it
  7. to suit your needs.
  8.  
  9. To add a choice to a menu simply use the AddChoice command
  10. then add the appropiate Onkey statement.
  11. The menu will make the size adjustments accordinaly.
  12.  
  13.   Example:
  14.       AddChoice("Print Console",10)
  15.       ...
  16.       ...
  17.       OnKey Task(10)
  18.         PConsole
  19.       ...
  20.  
  21. If you want to change the menu's center, pass the XY
  22. coordinates to menu's CenterStretchBox procedure.
  23.  
  24.    Example:
  25.       CenterStretchBox("Menu Header",40,12)
  26.  
  27. This will cause the menu to center at Col 40, Row 12
  28.  
  29. Instead of defining the center of the box, there is a command
  30. CornerStretchBox where the box grows down and right.
  31.  
  32.    Example:
  33.       CornerStretchBox("Menu Header",8,6)
  34.  
  35. To control custom features, edit CUSTOM.INC and other INCLUDE Files.
  36.  
  37. =========================================================
  38. EndComment
  39.  
  40. ;------ Create Variables
  41.  
  42. var
  43.   NovVar
  44.   KeepUsersInMenu
  45.  
  46. KeepUsersInMenu = False    ;set to True if you want to lock in users
  47.  
  48. ;------ Personalize Your Screen Messages
  49.  
  50. StatusLineText = 'Your Company Name Here'
  51. MenuTitle = 'Computer Tyme Master Menu'
  52.  
  53. Comment
  54. ==========================================================
  55.  
  56. If you want to branch to a personal menu then this routine test for the
  57. existence of a menu in the users H: directory with the same name as the
  58. users login name. It then sets an environment variable indicating if it
  59. was found. This keeps the menu fast because the test need only be made
  60. once.
  61.  
  62. ==========================================================
  63. EndComment
  64.  
  65. ;------ Load menu look and feel include files
  66.  
  67. Include 'CUSTOM.INC'
  68.  
  69. Comment
  70. =================================
  71.  
  72. In order to add menu choices conditionally you would append the
  73. choices to the end of the array after all the default choices
  74. are set. For Example:
  75.  
  76.    if InGroup("ACCOUNTING")
  77.       AddChoice("Payroll Menu",10)
  78.    endif
  79.  
  80. Here is where menus are created.
  81.  
  82. =================================
  83. EndComment
  84.  
  85.  
  86. ;=============[ Main Menu ]============*
  87.  
  88. AddChoice('Accounting',1)
  89. AddChoice('Word Processing',2)
  90. AddChoice('SpreadSheet',3)
  91. AddChoice('DataBase',4)
  92. AddChoice('Communication',5)
  93. AddChoice('Utilities',20)
  94. if PersonalMenu > '' then AddChoice('Personal Menu',25)
  95.  
  96. CornerStretchBox ('Main Menu',11,6)
  97.  
  98. OnKey Task(1)
  99.    |Error('Put Code for Accounting here.')
  100. ;  cd\account
  101. ;  acc
  102.  
  103.  
  104. OnKey Task(2)
  105.    |Error('Put Code for Word Processing here.')
  106. ;  cd\wordperf
  107. ;  wp
  108.  
  109.  
  110. OnKey Task(3)
  111.    |Error('Put Code for SpreadSheet here.')
  112. ;  cd\lotus
  113. ;  123
  114.  
  115.  
  116. OnKey Task(4)
  117.    |Error('Put Code for DataBase here.')
  118.  
  119.  
  120. OnKey Task(5)
  121.    |Error('Put Code for Communication here.')
  122.  
  123.  
  124. OnKey Task(20)  ;Utilities
  125.    ^Util
  126.  
  127.  
  128. OnKey Task(25)
  129.    |Bat 'Marx ' + PersonalMenu
  130.  
  131.  
  132. OnKey ESC
  133.    |if not KeepUsersInMenu
  134.    |   LeaveMenu
  135.    |endif
  136.  
  137.  
  138. ;=============[ Utilities ]============*
  139.  
  140. Include "UTILS.INC"
  141.